home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / data / games / ray1.bas < prev    next >
BASIC Source File  |  1991-10-18  |  1KB  |  38 lines
  1. 1000 '
  2. 1010 ' ライザンバー横長
  3. 1020 '
  4. 1030 CLS
  5. 1040 PRINT "＊＊＊ライザンバー横長":PRINT 
  6. 1050 PRINT "ディスクをＡドライブに入れて何かキーを押して下さい"
  7. 1060 WHILE INKEY$="":WEND
  8. 1070 '
  9. 1080 OPEN "R",#1,"a:(1)\tbios.bin"
  10. 1090 FIELD #1,1 AS DT$
  11. 1100 ADR=&HF71
  12. 1110 '
  13. 1120 READ REGSET,NUM
  14. 1130 FOR J=1 TO NUM
  15. 1140   READ REG,DAT:OFST=ADR+64*(REGSET-1)+REG*2
  16. 1150   LSET DT$=CHR$(DAT MOD 256):PUT #1,OFST
  17. 1160   LSET DT$=CHR$(DAT \ 256):PUT #1
  18. 1170 NEXT
  19. 1180 CLOSE
  20. 1190 '
  21. 1200 OPEN "R",#1,"a:(1)\game.exp"
  22. 1210 FIELD #1,1 AS DT$
  23. 1220 READ NUM
  24. 1230 FOR J=1 TO NUM
  25. 1240   READ O$,D$:OFST=VAL("&H"+O$):DAT=VAL("&H"+D$)
  26. 1250   LSET DT$=CHR$(DAT MOD 256):PUT #1,OFST+1
  27. 1260 NEXT
  28. 1270 CLOSE
  29. 1280 END
  30. 1290 '
  31. 1300 ' レジスタセット２９(ハイスキャン 5+10)
  32. 1310 DATA 29,10
  33. 1320 DATA 0,80,1,590,4,669,29,3,9,128,18,128,10,642,11,128,22,128,12,642
  34. 1330 '
  35. 1340 DATA 15
  36. 1350 DATA 347,0,3A1,0,2AD4,80,2AF2,80,2B33,80,2B77,80,178B0,80,178B4,80
  37. 1360 DATA 178BC,80,1E06,80,1E32,80,1703,80,2C3C,80,178C8,80,178D4,80
  38.